home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / glibc-1.09 / glibc-1 / glibc-1.09.1 / sysdeps / unix / bsd / vax / __vfork.S < prev    next >
Encoding:
Text File  |  1994-07-18  |  1.6 KB  |  56 lines
  1. /* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  2. This file is part of the GNU C Library.
  3.  
  4. The GNU C Library is free software; you can redistribute it and/or
  5. modify it under the terms of the GNU Library General Public License as
  6. published by the Free Software Foundation; either version 2 of the
  7. License, or (at your option) any later version.
  8.  
  9. The GNU C Library is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12. Library General Public License for more details.
  13.  
  14. You should have received a copy of the GNU Library General Public
  15. License along with the GNU C Library; see the file COPYING.LIB.  If
  16. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  17. Cambridge, MA 02139, USA.  */
  18.  
  19. #include <sysdep.h>
  20.  
  21. #ifndef    SYS_vfork
  22. #define    SYS_vfork    66
  23. #endif
  24.  
  25. /* Clone the calling process, but without copying the whole address space.
  26.    The the calling process is suspended until the the new process exits or is
  27.    replaced by a call to `execve'.  Return -1 for errors, 0 to the new process,
  28.    and the process ID of the new process to the old process.  */
  29. .globl ___vfork
  30. error:    jmp syscall_error
  31. ___vfork:
  32.     .word 0
  33.     /* Save our return address in R2, and return to code below.  */
  34.     movl 16(fp), r2
  35.     movab unwind, 16(fp)
  36.     ret
  37. unwind:
  38.     /* Do the system call.  */
  39.     chmk $SYS_vfork
  40.     bcs error
  41.  
  42.     tstl r1
  43.     beq parent
  44.  
  45.     /* We are the child.  Return zero.  */
  46.     clrl r0
  47.  
  48.     /* Return to the saved address.  */
  49. parent:    jmp (r2)
  50.  
  51. .globl    _errno
  52. error:
  53.     movl r0, _errno
  54.     mnegl $1, r0
  55.     jmp (r2)
  56.